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12-828: 984 12:51:29 PASRTL.SRC PASE INDE .B3 31 


; 1 001 MODULE PASSFINDK ( BTITUF 1_pAge* procedure’ 

: ¢ Oe y ENT ! File: PASFINDK.B32 Edit: SBL1003 

-. 004 1 BEGIN 

3 5 0005 1! 

$ § 4 i [eteeossenenaeaneqenoreontesseseaneneontntonoconennnennnnnasononnesneesenees 
; 
3 8 0008 1 i* (COPYRIGHT (c) 1978 1980, 1982, 1984 BY + 
; 9 0009 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
3 19 Baie ; is ALL RIGHTS RESERVED. * 
4 ® 
3 1 pole 1 is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copieD * 
3s 7 013 1 i ONLY IN ACCORDANCE WITH TH OF SUCH Mt SE he WITH THE * 
3; 66 0014 1 i® INCLUSION OF THE ABOVE see re eee NOTICE. THIS sor TY ARE ANY OTHER * 
: 15 0015 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
wa 0016 1 !* OTHER PERSON. NO TITLE fon AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; i? Baie ' :* TRANSFERRED. * 
Ps : t 
3 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT 4 2 CHANGE WITHOUT NOTICE * 
; a Bas9 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $1 B06) : :* CORPORATION. * 
Py : ® 
3 3 $036 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR + pata OF ITS * 
: $e bose : - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL : 
: 26 0026 1 I & 
3 a7 (VOM MR CISTI STITT e tii iit itr iii i iti i titi i titi titi iti tritici cit iii iii iititit 
a. ae 0028 1! 

3 $3 534 1 

; 3 $034 1 i PACILITY p LL S$ t 

3 ! : ascal Language Suppor 

a - 0052 1 | — 

; 3 0033 1 ! ABSTRACT: 

; | 634 0034 1! 

3 35 0035 1! This module contains PASSFINDK, which implements the 

; $$ Bose ! VAX-11 Pascal FINDK procedure. 

3 $3 tt ' ENVIRONMENT: User mode - AST reentrant 

3 40 9040 AUTHOR: Steven B. Lionel, CREATION DATE: 24-February-1982 

> 42 004¢ 1 i MODIFIED BY: 

s 3 0043 1! 

; 6 0044 1 ! 1-001 - Original. SBL 24-February-1982 

; 465 0045 1 ! 1-002 = Store length word for FILE OF VARYING. FT3 QAR 006 SBL 31-Aug-1982 
; 46 0046 1 ! 1-003 - Turn off RABSV_NLK. SPR 11-55690 SBL 8-Apr-1983 

ie 0047 1 !<- 

:; 648 0048 1 
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SIDE EFFECTS: 
Places file in Inspection mode 
SIGNALLED ERRORS: | 
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PASS$F INDK FINDK procedure 16-Sep-1984 01:35:17 AX-11 Bliss-32 V4.0-74 Page 3) 
1-003 PASSFINDK - FINDK procedure 10-808 - 1 3be 3:83:35 PASRTL.SRCIJPASF INDK.B 31 . (3). 1-( 
; § 143 1 XSBTTL 'PASSFINDK = FINDK procedure’ ; 
H 4 144 1 GLOBAL ROUTINE PASSFINDK ( : 
: 4 145 1 PFV: REF SPASSPFV_FILE_VARIABLE, ! File variable > 
nee 1 KEY_NUMBER, ! Key number : 
; ae 1 KEY VALUE: REF BLOCK C, BYTE], ! Key value ; 
a 19 1 MATCH_TYPE: BYTE, ! Match type ‘ ; 
>; «288 0149 1 ERROR ! Unwind address if error : 
; 0150 1 ): NOVALUE = : 
3; 0151 1 : 
; (91 O26 1 l+¢ : 
; 9g B12? } } FUNCTIONAL DESCRIPTION: : 
; «494 EE 1! PASSFINDK implements the VAX-11 Pascal FINDK procedure. It : 
$ 4 9128 : } finds a record in an indexed file by key and does a GET. : 
: 97 0158 1 | CALLING SEQUENCE: | : 
; «98 0159 1! : 
; WW 0160 1! CALL PASSFINDK (PFV.mr.r, KEY NUMBER. rl.v, ; | ° 
; 106 o16s : FORMAL PARAMETERS: ‘ 
: 104 0165 1! PFV - The Pascal File Variable (PFV) passed by reference. ; 
: +4 8198 ; The structure of the PFV is defined in PASPFV.REQ. ’ 
3 + 44 bie8 : } KEY_NUMBER - The number of the key to be searched. 
; 109 0170 1! KEY_VALUE - The value of the key to look for, passed by 
: 110 0171 1! descriptor. Valid datatypes are BU, WU, L 
: i 6158 } LU, T and Z. (2 is equivalent to 7). 
: 118 0174 1! MATCH_TYPE - Denotes the match type for the search. The values 
3; (114 0175 1! are: 
, 999 0176 1! Q - Match on equal only 
; 16 O177 1! 1 - Match on greater than or equal to 
3 i 6478 ' 2 - Match on greater than only | 
: 119 0180 1! ERROR - Optional. If specified, the address to unwind to 
3 139 0181 1! if an error occurs. 
3: 121 Bis 1! | 
3 \¢¢ 0185 1 ! IMPLICIT INPUTS: 
3 124 0185 1! NONE 
s te big9 2 3 
s 12 1 1 ! IMPLICIT OUTPUTS: 
3; ler 0188 1! 
: 128 Ht 1! NONE 
3 94 190 1! 
3: 130 0191 1 ! ROUTINE VALUE: 
s 31 3136 1! 
: 132 195 1! NONE 
s 133 194 1! 
: 13 195 1! 
3 «135 196 1! 
: «136 0197 1! 
; 13 0198 1! 
3; 15 0199 1! 


on 


EE ee _ - - } 


we $F INDK K procedu 


D re 
SFINDK = FINDK procedure 


N 10 
16*Sep-1984 01:35:17 VAX=11 Bliss-32 v4.0-74 ° 4 
eae See CCT bets pra tae ae oe 3) | 


i FILNOTOPE = File not open 
: FILNOTKEY = File not opened for keyed access 
' KEYNOTDEF = Key ‘'n'' is not defined for this file 
: KEYVALINC = Fey value is incompatible 
: FAIGETLOC = Failed to get locked record 
ERRDURFIN = Error during FIND or FINDK | 
i | 
len 

BEGIN 

LOCA 

! File control block 


L 

FCB: REF SPASSFCB_CONTROL_BLOCK, 
: VOL ' Enable argument 

' Enable argument 

' Enable argument 


wre 

>. 

= 
Oo 
zz 
J 
uw 
o 


CTOR ! Vector of rezeree masks and Lengths | 
KEYTYPES MASK: BITVECTOR (16), ! Mask of allowable key types 
KEY_S ORD, ! Key size in bytes 
TATUS, ' Status from $GET | 
LOCAL_KEY; ' Local key value 
BIND | 
RAB = FCB: REF BLOCK C, BYTE]; ' RMS RAB 
BUILTIN 
ACTUALCOUNT; 
LITERAL 
K_EQL = 0, ! Match on equal 
K_GEQ = 1, ! Match on greater or equal 
K_GTR = 2; ! Match on greater 


NABLE 

PAS$$IO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); 
IF ACTUAL COUNT  GEQU 5 

ERROR_ADDR = .ERROR; ! Set unwind address 


‘+ 
Set PFV address enable argument. 


= | 


WN 9 COONAN WN —$O ODNOA NEW 0 ODNAUS WN OO OONOULSWN OO” 


PFV_ADDR = PFV CPFVSR_PFV); 
1 } 


'¢ 
Validate and lock PFV 


PASSSVALIDATE_PFV (PFV CPFVSR_PFVJ; FCB); 


fun 


PUPP Be BS BS BB BE EE EAN. ANAAN AANA PN NININININIDD 4 = 18 OS MH DOOOOOOOCOCSO “WZ 
AVS WN 0 ODA UNE WIN 0 ODNAUE WIN O OONAUE WN (0 ODNOAUE ARO OONAUE WIN" 


RPP NININININIMNYNIMNINONIPYNINPOPINININYNINYNPINININININININININYINININININPINININYIPININIDY 2 OO OO OO 


ee eh ee ee ce a ce a ec ce a ee ec ce ce me ce ee ce ce ae ec a a ed a a 
w 


'¢ 
Set unwind action to unlock file. 


es CC OS wt SB toa 
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PASSE INK F INDK procedure 1p~300~ 198 91:39:12 AX-11 Bliss-32 V4.0-74 Page 5. ony 
1-003 ASSFINDK = FINDK procedure 14-Sep-1984 12:51:29 PASRTL.SRCJPASF INDK.B32;1 (3). 

196 | 

14 UNWIND_ACT = PAS$SK_UNWIND_UNLOCK; 

99 + 

$Y Open file if it should be implicitly opened. 

: ! 

08 IF NOT .PFV CPFVS$V_VALIDJ 

05 PASSSOPEN_IMPLICIT (PFV CPFVSR_PFV], FCB CFCBSR_FCB]; FCB); 


'¢ 
Verify that the file is open. 


IF NOT .PFV CPFVSV_OPEN] | 
SPASSIO_ERROR (PAS$_FILNOTOPE,0); | 


+ 
Verify that the file is opened for keyed access 


IF NOT .FCB CFCBS$V_KEYED) 
SPAS$SIO_ERROR (PAS$_FILNOTKEY,0); 


1+ 
! Verify that the key number is valid for the file and 
: set the key number. Set access mode to keyed. 


IF_.KEY_NUMBER GEQU .FCB CFCBSL_NKEYS) 
THEN 


SPAS$1IO_ERROR (PAS$_KEYNOTDEF,1,.KEY_NUMBER); 
RAB CRABSB_RRFJ = .KEY_NUMBER; ' Set key number 
RAB CRAB$B_RAC) = RABST_KEY; ! Keyed access | 


14 

' Get mask of allowable Catetyoes for this key. KEYTYPES VECTOR is 

' a vector of Longwords, one for each key in the file. The first word of 
' each lLongword is a bit mask, with each bit corresponding to a datatype 
' code (0-15). If a bit is set, that key datatype acy be used to access 
the key. The second word is the length of the key in bytes. 


CBSA_KEY TYPES); 


KEYTYPES_VECTOR = CF ; 
z PES_VECTOR C.KEY_NUMBER*2); 


KEYTYPES_MASK 
'¢ 
Check to see if caller key type is allowed for this key. 


.FCB 
-KEYTY 
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1 RET VALUE CDOSC$B_DTYPE] GTRU 15 ! No datatype greater than 15 is allowed 


$PAS$IO_ERROR (PAS$_KEYVALINC,1,.KEY_NUMBER) ; 
IF NOT .KEYTYPES_MASK C7KEY_VALUE COSC$B"DTYPEJJ 
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procedure ee 4:89:12 AX-11 Oh fegete V4.0-74 
INDK = FINDK procedure 14-Sep-1984 12:51:29 PASRTL.SRCJPASF INDK.B32;1 
THEN 
SPASSIO_ERROR (PAS$_KEYVALINC,1,.KEY_NUMBER) ; 
1+ 
Get key value. 
IF .KEY_VALUE CDSCS$B_DTYPE] EQL DSCSK_DTYPE_T OR 
-KEY_VALUE CDSCSB_DTYPE] EQL DSCSK_DTYPE_Z 
BEGIN 
RAB CRABSL r¥. = ,KEY vat COSCSA_POINTER]; ! Key address 
IF kev -VACUE DSC$W_LENGTH) GTRU 255 
SPAS$SIO_ERROR (PAS$_KEYVALINC,1,.KEY_NUMBER) ; 
RAB CRABSB_RSZ] = .KEY_VALUE COSC$W_LENGTHI; i String size 
ELSE 
BEGIN 
i Key value is numeric. Expand it to a longword and store in 
LOCAL_KEY. 
LOC 


AL 

KEYVAL: REF BLOCK C, BYTE]; 

KEYVAL = .KEY_VALUE CDSCSA_POINTER]; ! Get key value address 

CASE. -KEY_VALUE CDSC$B_DTYPE] FROM DSCS$K_DTYPE_BU TO DSCSK_DTYPE_L OF 
CDSC$K_DTYPE_BU): LOCAL_KEY = .KEYVAL (0,0,8,0); 
COSCSK-DTYPE-WUJ: _LOCAL-KEY = .KEYVAL [0.0,16,0); 
COSCSK_DTYPE_L, DSCSK_DTYPE_ Lu: 

LOCAL_KEY = .KEYVAL (0,0,32,0]; 
CINRANGE, OUTRANGE): 
SPAS$I0_ERROR (PAS$_INVARGPAS,O); 

TES; 

14 

Check that key value is in proper range for file's key. 


Y_SIZE 
Y 


KEY_SI .KEYTYPES_VECTOR ((2*.KEY_NUMBER) +1); 
IF KE QL 1 


SIZE E 


BEGIN 
IF .LOCAL_KEY GTRU 255 

yp 2PASSIOLERROR (PASS_KEYVALINC, 1, .KEY NUMBER) 
IF .KEY_SIZE EQL 2 


BEGIN 
IF .LOCAL_KEY GTRU 65535 


vo 
Poa 
“” 


SPASSIO_ERROR (PAS$_INVARGPAS,O); 


D 11 
| PASSF INDK INDK procedure 16-Sep-1984 01:35:17 AX-11 Bliss-32 V4.0-74 Page 7 
plete: ASSFINDK = FINDK procedure 18-08-1382 oy: 1:29 PASRTL.SRCJPASF INDK.832;1 ° (3) 
71 HEN 
oe SPASSIO_ERROR (PAS$_KEYVALINC,1,.KEY_NUMBER) ; 
74 ELSE IF .KEY_SIZE NEQ 4 
75 THEN 
76 
77 
78 
9 
0 


F r 

PASSFIN 
; 310 4 
: 3 d 
$ i 
>; 314 0 
. oe 0 
; 316 0 
: 318 $37 i set key buffer odd d 
3 ! Set key buffer address and size. 
: 319 038 \. . 
31 $383 RAB CRABSL_KBF] = LOCAL_KEY | 
3 ; $385 RAB CRAB$B_KSZJ = .KEY_SIZE; 
: im 0384 END; 
; $$¢ 0385 
a: 0386 + 
; $58 0387 ! Set match type. 
s Ser 0388 l- 
3; 38 0389 
; 329 0390 2 RAB CRABSV_KGE] = 0; 
; $39 td § RAB CRABSV_KGTJ = 0; 
o | 
3 332 $398 2 CASE .MATCH_TYPE FROM K_EQL TO K_GTR OF 
s 3a0 0394 2 SET 
; 334 0395 2 
; 335 0396 § CK_EQL): ; ' Set equal 
3 330 0397 CK_GEQ): RAB CRABSV_KGE] = 1; ! Set greater or equal 
3 Sor 0398 2 CK_GTR): RAB CRABSV_KGTJ] = 1; ! Set greater than 
; 338 0399 2 COOTRANGEJ: | 
3 So 0400 2 SPASSIO_ERROR (PAS$_INVARGPAS,O); 
; 340 0401 2 | 
; 341 0402 2 TES; 
; 342 0403 2 
; 343 0404 2 PFV CPFVS$V_DFB) = 0; ! Undefine file buffer 
> 344 0405 2 PFV CPFVSV_EOF_DEFINED) = 0; ! EOF(f) not defined 
; 345 0406 2 FCB CFCBSV_EOFJ = 0; ! Not at EOF : 
: 346 0407 § RAB CRABSV_NLK] = 0; ! Turn off NLK bit 
; 347 0408 
; 348 0409 2 ‘+ | 
3; 349 0410 2 ! Get the record. 
; 350 0411 2 l- 
s 6351 0412 § 
: 35¢ 0413 STATUS = SPAS$RMS_OP ($GET (RAB=.RAB)); 
: 0414 
3; 354 0415 '¢ 
; 395 0416 ! If varying, put component length in first word of user buffer. | 
; 356 0417 ' Do this before we check for errors! 
S| or 0418 § '- 
3; 38 0419 
5 59 0420 IF .FCB CFCBSV_VARYING) 
: 360 0421 THEN 
; rt Bes§ (.PFV CPFVSA_BUFFER])<0,16,0> = .RAB CRABS$W_RSZ]; 
: 365 0424 IF NOT .STATUS 
: 364 0425 THEN 
; 365 0426 BEGIN 
; 366 0427 '¢ 


PASSF INDK INDK procedure at -1984 5:17 AX-11 Bliss-32 V Page 
1-003 ASSFINDK = FINDK procedure 12: ~3ep-1986 93: 1:29 PASRTL. SRCIP PASE Nok aes 31 ° (3 
; 367 428 ! If the status is ‘record not found’’, simply leave DFB clear. 
3 4 “ 4 ; j_ Otherwise, signal the appropriate error. 
: 0 0431 
: 71 4 ¢ IF_.STATUS NEQ RMS$_RNF 
; af 4 THEN 
3 ie, Be : IF .STATUS EQL RMS$_RLK ! Record locked? 
; P Re § 4 SPASSIO_ERROR (PASS$_FAIGETLOC) ! Failed to get locked record 
s 6SVT 0438 SPASSIO_ERROR (PAS$_ERRDURFIN); ! Error during FIND or FINDK 
; sre 0439 END 
: 379 0440 ELSE 
; 380 0441 PFV CPFV$V_DFB] = 
3 Sel 044 
; 044 + 
. 0444 i Set Inspection mode 
> «4384 0445 i Indicate successful completion 
; 385 0446 ' Unlock the file 
> 386 0447 2 in 
3 3e7 0448 
: 388 0449 FCB CFCBSV_INSPECTION] = 1; 
; 389 0450 FCB CFCBS$V_GENERATION] = 0; 
; 390 0451 FCB CFCBSL_STATUS) = 0; 
; 391 045 2 PFV CPFV$V_LOCK] = 0; 
3; 392 045 § | 
s 35 0454 RETURN; 
: 394 0455 2 
3; 395 0456 1 END; ! End of routine PASS$FINDK | 
| 
-TITLE PASSFINDK FINDK procedure | 
-IDENT \1-003\ 
-EXTRN PASSFINDK, ode HANDLER 
-EXTRN PASS$S$VA LIDAT “4 
-EXTRN PASS$SOPEN_IMP 
-EXTRN PASSS$SIGNAL PASSK F ILNOTOPE | 
-EXTRN PASSK_FILNOTK 
~EXTRN PAS SK-KEYNOTDEF 
-EXTRN PAS$K ote oad 
~EXTRN aot INVARGPA 
~EXTRN $GET, PASSK: FAIGETLOC 
~EXTRN SASse _ERRDURF IN 
-PSECT _PASSCODE,NOWRT, SHR, PIC,2 | 
OFFC 00000 ENTRY 4 et tal Save R2,R3,R4,R5,R6,R7,R8,R9,- : 0144 | 
5E 10 ¢2 0000 SUBL2 #16, SP ; 
04 AE /7C 0000 CLROQ ERROR_ADDR : 0211 
OC AE D4 00008 CLRL PFV_ADDR ; 
6D 0198 CF DE 000 MOVAL 34$, (FP) ; 
05 6C 91 0001 CMPB. ss CAPS, #5 ; 0238 
05S if 48 BLSSU. 1 3 
04 AE 14 AC DO 0001 MOVL ERROR, ERROR_ADDR ; 0240 
56 04 AC DO OOOTA 1$: MOVL PFV, R6 : 0246 
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PASSF INDK 


1-003 


1 | 
| PASSF INDK FINDK procedure 1hase -1984 01:35:17 AX-11 Bliss-32 V4.0-74 Page 10 
8808 PASSFINDK = FINDK procedure 12-8 08- 1 3be 9}: 1:29 PASRIL  SREIPASE INDE .03951 . (3) | 
01 53 B1 000D CMPW  3=saKEEY_SIZE, #1 : 0360. 
09 if 0008 BNEQ 14$7 : 
QOOOOOFF  8F E D O08 CMPL LOCAL_KEY, #255 : 0363 
: 11 000 BRB $ ; 
02 B1 OOOES 148 CMPW KEY SIZE, #2 ; 0367) 
19 if OOE7 BNEQ 18$ : | 
QOOOOFFFF  8F 6— D1 OO0E9 CMPL LOCAL_KEY, #65535 + 0370 
15 1B OOF 15$: BLEQU 19S F 
55 DD O00F2 16$: PUSHL 5 : 0372. 
01 DD 000F4 PUSHL #1 : | 
7E 00G 8F 9A OOOF6 MOVZBL A#PASSK_KEYVALINC, -(SP) $ | 
000000006 00 03 FB OO0F A 17$: CALLS #3, PASSSSIGNAL 
04 00101 RET : 
04 53 BI 90198 18$: CMPW = KEY_SIZE, #4 > 0374 
1¢ 12 0010 BNEQ 228 : 
30 A7 of 3 00107 19$: | MOVAB  LOCAL_KEY, 48(FCB) + 0382 
4 a7 53 90 00108 MOVB KEY_STZE, 52(FCB) : 0383 
53 04 A? QE OO10F 208: movAB 4(FCB), R3 > 0390 
02 A3 60 8F 8A 00113 BICB2 #96, 2(R3) > 0391 
02 00 10 AC 8F 00118 CASEB MATCH TYPE, #0, #2 : 0393 
001A 0014 001F 0011D 218: WORD $-21$,- : 
24$-21$,- : 
25$-21$ : 
7E D4 00123 228: CLRL = = (SP) + 0400 
7E 006 BF 9A 00125 MOVZBL #PAS$K_INVARGPAS, -(SP) : 
000000006 00 02 FB 00129 23$: CALLS #2, PASSSSIGNAL : 
02. a3 20 88 00131 24$:  BISB2 #32, 2(R3) : 0397 
05 11 00135 BRB 26$ : 
02 a3 40 8F 88 00137 S$:  BISB2 #64, 2(R3) > 0398) 
02 AA 06 BA 0013C 26$:  BICB2 #6, 2(R10) + 0405 
01 AB 0 8A 00140 BICB2 #32, 1(R11) + 0406 
02 «A3 10 BA 00144 BICB2 #16. 2(R3) : 0407 
57 DD 00148 278 PUSHL FCB + 0413 
000000006 00 01 FB 0014A CALLS #1, SYSSGET : | 
0D 50 €8 00151 BLBS  $$STATUS, 28$ : | 
0001825A BF 50 D1 00154 CMPL $$STATUS. #98906 : | 
04 12 00158 BNEQ e8 ; | 
£7 03 AB ES 0015p BLBS (R11), 27$ : | 
05 FB OAT 02 E1 00161 28$ BBC #2, -B(FCB), 29% + 0420 | 
00 B6 22 a? BO 60166 MOVW 34(FCB), a0(R6) : oes | 
24 50 £8 00168 298 BLBS STATUS, : 0404 
00018282 =F 30 b 00166 CPL TATUS, #98994 > 0432 | 
000182AA ss BF 50 01 00177 CMPL TATUS, #98986 > 0434_ 
06 12 0017 BNEG F 
7E 006 BF 9A 90180 MOV ZBL #PASSK_FAIGETLOC, -(SP) : 0436, 
7E 00G 8F 9A bi8e 308: MOVZBL #PASSK_ERRDURFIN, -(SP) + 0438 
000000006 00 01 FB OBA 1$: CALLS #1, PASSSSIGNAL F | 
02 AA 0 g 0192 328: BIS #2, 2(R10) > 0441. 
01 AB 0 0196 33$: BISB2 #8. 1(R11) > 0449. 
01 AB 1 A 00194 BICB2 #16, 1(R11) : 0450 
D4 A? D4 0019 CLRL ag (FCB) > 0451 | 
03 AA 80 8F BA OO1A1 BICB2 #128, 3(R10) : 0452. 
4 001A6 RET : 0456 | 
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PASSF INDK FINDK procedure 16-Sep-1984 5:17 AX-11 Bliss-32 V4.0-74 Pa 1 
4-008 PASSFINDK = FINDK procedure 10-Sep-1986 9}: a?! 9 PASRTL.SR RCIP PASF INDK.B32;1 ” hy 


000 1A7 348: WORD poys noghing ; 0211 
28 8 A D 1A9 MOVL (AP), R a 
0 4 A 1AD 4(RO), R j 
F4 A f 181 PUSHAB ERROR_ADDR 4 
8 A F 18% PUSHAB UNWIND ACT é 
FC UO A F 0018 PUSHAB PFV_ADDBR ; 
9 DD OO1BA PUSHL #3 5 
E 0D 001BC PUSHL SP 3 
7E 04 Ag D 1B MOVQ 4(AP), -(SP) 5 
000000006 00 0 fe at cts #3, PASS$10_ HANDLER 5 


; Routine Size: 456 bytes, Routine Base: _PASSCODE + 0000 


0457 1 | 


396 
397 0458 1 !<BLF/PAGE> 
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; Run Time 


; Elapsed tees 00:44.5 
; Lines/CPU Min: 22 

; omy Aoe fate 2128 

3 ry Used: 194 pages 
3 — ation Complete 
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4-008 PASSFINDK = FINDK procedure 14-Sep- etsy 9}: 3} iM PASRTL.SRCJPASF INDK.B32;1 ° (4), 
; 399 0459 1 END ! End of module PASS$F INDK H 
: 400 0460 1 orn : 
: 401 461 0 ELUDOM : 
; PSECT SUMMARY | : 
; Name Bytes Attributes | ‘ 
; PASSCODE 458 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | ; 
; 
Pe 
; Library Statistics | 
ee ee ee SYEROLE seer-ase Pages Processing | : 
; File Total Loaded Percent Mapped Time : 
: _$255$DUA28: :ESYSLIBISTARLET .L32:1 9776 25 0 581 00:01.0 | : 
3 ~$255$DUA28:CPASRTL.OBJIJPASLIB.L32;1 427 97 22 33 00:00.4 | : 
| 
| 3 
: COMMAND QUALIFIERS | , 
; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:PASF INDK/OBJ=OBJ$:PASFINDK MSRC$:PASF INDK/UPDATE=(ENHS: PASF INDK) | 
; Size: 458 code + 0 data bytes | 
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